﻿Public Class MyScheduleController
    Inherits MyAppointmentFormController
    Public Sub New(ByVal control As SchedulerControl, ByVal apt As Appointment)
        MyBase.New(control, apt)
    End Sub

    Public Property CustomHrs() As Decimal
        Get
            Return EditedAppointmentCopy.CustomFields("CustomHrs")

        End Get
        Set(ByVal value As Decimal)
            EditedAppointmentCopy.CustomFields("CustomHrs") = value
        End Set
    End Property

    Public Property CustomWorkCodeId() As Guid?
        Get
            Dim tmpGuid As Guid
            If EditedAppointmentCopy.CustomFields("CustomWorkCodeId") IsNot Nothing AndAlso Guid.TryParse(EditedAppointmentCopy.CustomFields("CustomWorkCodeId").ToString, tmpGuid) AndAlso tmpGuid <> Guid.Empty Then
                Return tmpGuid
            Else
                Return Nothing
            End If
        End Get
        Set(ByVal value As Guid?)
            EditedAppointmentCopy.CustomFields("CustomWorkCodeId") = value
        End Set
    End Property


End Class
